Mapa

Row

NECESITO VACACIONES

Row

Descripción del mapa

Aquí estoy escribiendo la descripción del mapa que se dejo de actividad by JORGE GARCIA

ME GUSTAN LAS FRESAS

También puedes poner imágenes:



O hipervínculos, por ejemplo a Google

Row

Referencias

  1. Referencia MIAMI

  2. Referencia ME

  3. Referencia LO

  4. Referencia CONFIRMO

---
title: "Necesito vacaciones"
author: "Jorge Garcia"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### NECESITO VACACIONES

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Monterrey", Giro = "Turistico", longitud = -100.3, latitud = 25.6)
lugar2 <- c(Nombre = "Jalisco", Giro = "Turistico", longitud = -103.3, latitud = 20.3)
lugar3 <- c(Nombre = "Cancun", Giro = "Turistico", longitud = -86.85, latitud = 21.17)
lugar4 <- c(Nombre = "Culiacan", Giro = "Turistico", longitud = -107.4, latitud = 24.8)
lugar5 <- c(Nombre = "Irapuato", Giro = "Me gustan las fresas", longitud = -101.3, latitud = 20.6)
lugar6 <- c(Nombre = "Los cabos", Giro = "Turistico", longitud = -109.7, latitud = 23.053)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) ### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) ### Imprimimos el mapa mapa ``` Row ----------------------------------------------------------------------- ### Descripción del mapa Aquí estoy escribiendo la descripción del mapa que se dejo de actividad *by JORGE GARCIA* **ME GUSTAN LAS FRESAS** También puedes poner imágenes:
![](imagen-ejemplo.png){heigth="150"}

[O hipervínculos, por ejemplo a Google](https://www.google.com.mx/) Row ----------------------------------------------------------------------- ### Referencias 1. Referencia MIAMI 2. Referencia ME 3. Referencia LO 4. Referencia CONFIRMO